   1 NT=0
   2 R=0;A=5;B=0;D=43;E=0;S=0;W=0
   3 Z=rnd (100)+20
  10 clear 
  20 &(10)=0
  30 CX=-16;CY=0
  40 BC=153;FC=84
  50 print "CATCHEM"
  60 box 0,0,45,9,3
  65 print ;print ;print "        BY SCOTT TAYLOR"
  70 &(10)=176
  80 NT=2
  90 for X=1to 500;next X;clear 
  95 BC=8;FC=157
 110 box 0,0,150,73,1;box 0,0,132,62,3
 120 box 0,0,132,62,2;for X=-55to 55step 18
 130 box X,0,4,36,1;next X
 140 gosub 2000
 150 box 0,0,132,62,2;for Y=-35to 35 step 18
 155 box 0,Y,100,4,1
 160 next Y
 170 box 0,-35,120,4,2
 172 Z=rnd (100)+20;W=0
 175 R=R+1
 180 CX=0;CY=-39;print "ROUNDright ",#1,R
 190 goto 2000
1999 goto 1999
2000 if JY(1)=1 B=B+4
2002 W=W+1
2010 if JY(2)=1 E=E+5
2015 if W=Z goto 8000
2020 if JY(1)=-1B=B-4
2030 if JY(2)=-1E=E-5
2040 if JX(1)=1 A=A+4
2045 if JX(2)=1 D=D+5
2050 if JX(1)=-1A=A-4
2060 if JX(2)=-1D=D-5
2066 goto 2085
2070 box A,B,2,2,1;box A,B,2,2,2
2080 box D,E,3,3,1;box D,E,3,3,2
2083 goto 2000
2085 .
2090 if PX(A,B+4)=1 B=B-4
2100 if PX(A+4,B)=1 A=A-4
2110 if PX(A,B-4)=1 B=B+4
2120 if PX(A-4,B)=1 A=A+6
2130 if PX(D,E+4)=1 E=E-5
2140 if PX(D+4,E)=1 D=D-5
2150 if PX(D,E-4)=1 E=E+5
2151 if R=3 goto 7000
2155 if PX(D-4,E) D=D+5
2156 gosub 5000
2170 goto 2070
4000 S=S+1;CX=0;CY=-39;print "SCOREright ",#1,S
4005 A=5;B=0;D=43;E=0
4006 for Q=65to 91;MU=Q;next Q
4010 goto 175
5000 if D+2=A goto 5020
5001 if D+1=A goto 5020
5002 if D+3=A goto 5020
5005 if D+4=A goto 5020
5010 if D-2=A goto 5020
5011 if D-1=A goto 5020
5012 if D-3=A goto 5020
5015 if D-4=A goto 5020
5017 return 
5020 if E=B goto 4000
5025 if E-1=B goto 4000
5027 if E+2=B goto 4000
5028 if E+3=B goto 4000
5030 if E=B goto 4000
5035 if E+1=B goto 4000
5037 if E-2=B goto 4000
5038 if E-3=B goto 4000
5040 return 
7000 clear 
7010 BC=88;FC=155
7015 CX=-50;CY=-37
7016 print "SCORE:",#1,S
7020 print ;print ;print 
7030 print "           GAME OVER"
7040 box 12,17,60,10,3
8000 I=rnd (2)
8010 W=0;Z=rnd (100)+20
8020 if I=1 goto 120
8030 if I=2 goto 150
8040 goto 8000
:return ;run 